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GRUPO 11 — A Mnemónica DJNZ 


Esta instrução é muito utilizada no Z80. Semelhante ao co- 
mando Basic NEXT quando o ciclo FOR estiver condicionado 
a STEP-1, sempre que é aplicada vai decrementar e registro B 
de uma unidade por ciclo, ao produzir um salto relativo en- 
quanto o valor desse registro for > Zero. 


Exemplo: 

NEXT (Basic) DJNZ (Código Máquina) 
VU LET À = 200 LD A, 200 
20 FOR DB = TO TO 1 STEP+ LD B, 10 

30 LET A= A-B LOOP: SUB A, B 

40 NEXT B 1 DJNZ LOOP 


Resultado: A = 145 Resultado: registro A = 145 


Como o leitor pode verificar, a semelhança entre os dois 
contadores, um em basic e outro em C/M, ambos em conta- 
gem decrescente, é autêntica. No basic, o comando FOR cria 
uma acção rotativa variável e o comando NEXT delimita essa 
rotação. Em código máquina o registro B é carregado com o 
número de ciclos para a contagem e a instrução DJNZ limita a 
zero o respectivo ciclo. 

O Salto é relativo. Portanto o segundo código dessa instrução 
é um número em complemento por 2; já nosso conhecido. 


Mnemónica Código 


—>—>—>—>———————— > 


DJNZ, e 16, € 


O exemplo seguinte é extraído da rotina de iniciação, na ROM 
do ZX81. 

Quando o ZX81 é ligado, esta rotina para além de outras ac- 
ções, tem de criar numa zona da memória, um ficheiro de pro- 
jecção — o espaço D. FILE, que inicialmente comportará ape- 
nas 25 caracteres NEW LINE (código 118). A operação é auxi- 
liada por uma instrução DJNZ. 

O endereço D. FILE é fixado em HL e B recebe o número de 
linhas necessárias ao preenchimento total do écran. Durante o 
ciclo, os sucessivos endereços de HL, que é incrementado, 
são carregados com o código NEW LINE. 


Endereços Etiquetas  Mnemónicas Comentários 
1030/1 LD B, 24 linhas do écran 
1032/3 LOOP: LD (HL), 118 carga com NEW LINE 


1034 INC HL 
1035/6 DJNZ LOOP salto para a etiqueta 


Neste exemplo utiliza-se no campo dos nomes a etiqueta 
LOOP, cujo endereço (1032) é a referência para o salto. 
O código 251 em complemento por 2, corresponde a esse en- 
dereço. 


(Cont. dos números anteriores) 


Ensaio 1: 2X81 —  Ecran Negro 


Mnemónicas: Comentários: 


Início 16514 
LD HL 16396 
LD B 23 

DEC HL 

INC HL 

LD A (HL) 

CP 118 

JR NZ LOOP 2 
DJNZ LOOP 1 


RET 
LD (HL) 128 
JR LOOP 1 


Aponta D. FILE 
23 linhas 


LOOP 1: 


é um NEW LINE? 


LOOP “E caracter negro 


O Basic: 


O REM (Reserva de 20 caracteres para o C/M.) 

25 RAND USR 16514. 

Esta rotina cria instantaneamente um écran negro, para traba- 
lhos em inverso de vídeo. 

Códigos a introduzir na REM O: 

33, 12, 64, 6, 23, 43, 35, 126, 254, 118, 32,3, 16, 248, 201, 54, 
128, 24, 243. 


Ensaio 2 : ZX81  — Inversão de vídeo 


Mnemónicas: Comentários: 
Início: 16514 
LD HL (16396) variável D. FILE 
LD B 24 24 linhas de écran 
LOOP: INC HL 
LD A (HL) 
XOR 128 inversão branco - negro 
CP 246 é NEW LINE? (246-128=118) 
JR Z SALT 1 
LD (HL) A impressão do caractere inverso 
JR LOOP 
SALT 1:  DJNZ LOOP 
RET 
O Basic: 


O REM (Reserva de 20 caracteres para o C/M.). 
25 RAND USR 16514. 


Esta rotina efectua a inversão de vídeo de tudo quanto se en- 
contra inscrito no écran. 


Códigos a introduzir na REM O: 


42, 12, 64, 6, 24, 35, 126, 238, 128, 254, 246, 40,3, 119, 24, 
245, 16, 243, 201. 


Ensaio 3: Spectrum —  Ecran Negro 

Etiquetas: Mnemónicas: Comentários: 

INÍCIO: 30000 
LD HL 22528 1.º endereço dos atributos 
LD C 24 24 linhas 

LOOP 2 LD B 32 32 caracteres p/ linha 
XOR A 

LOOP 1 LD (HL) A byte O para o atributo 
INC HL posição seguinte 
DJNZ LOOP 1 LOOP para uma linha 
DEC C linha seguinte 
JR NZ LOOP 2 
RET 


Códigos a introduzir no endereço 30000 (ou outro) 
33,0, 88, 14, 24,6, 32, 175, 119,35, 16, 252, 13, 32, 246, 201. 


Esta rotina não limpa o ficheiro de projecção, visto apenas in- 
tervir no código dos atributos, colocando a cor da tinta igual à 
cor do papel. 

O leitor pode substituir a cor negra por outra qualquer, modifi- 
cando o código dos atributos na carga de HL. Experimente ... 


Ensaio 4: Spectrum — 8 traços duplos no centro do ecran. 


Etiquetas Mnemónicas Comentários 
INÍCIO: 30000 
LD HL 18432 início da 2.º secção do écran 
LD E. 255 código dos 8 pixeis 
LD GC 16 para executar traço duplo 
LD A 32 as 32 colunas duma linha 
LOOP 2: LD BA carga do contador 
LOQP. 4: LO (4). E transferência para o écran 
INC HL próxima posição 
DJNJ LOOP 1 ciclo 1 
DEC C próxima fila de pixeis 
JR NZ LOOP 2 ciclo 2 
RET 


Códigos a introduzir no endereço 30000 (ou outro) 


33,0, 72, 30, 255, 14, 16, 62, 32, 71, 115, 35, 16, 252, 13, 32, 
248, 201. 


Esta rotina imprime na faixa central do écran e a todo o com- 
primento deste, 8 faixas com a espessura de 2 pixeis. 
Uma explicação detalhada da formação do ficheiro de projec- 
ção, apenas será abordada no próximo capítulo, sendo este 
ensaio elaborado como demonstração da instrução DJNZ. No 
entanto, a título de experiência, pode o leitor ensaiar outras 
configurações, substituído o valor carregado no registro E, ou 
escolher outra posição no ecran, modificando o endereço 
apontado por HL. Pode experimentar ainda muitas outras coi- 
sas, alterando um pouco a rotina. 


GRUPO 12 — Instruções que trabalham com o Machine 
Stack. 


Até agora, ao longo do que já foi publicado deste texto, fiz 


CLUBE Zso 


algumas referências às funções do Stack. É chegado o mo- 
mento de abordarmos com uma certa profundidade a sua utili- 
zação. ] 

O termo inglês Stack, quando aplicado a computadores, signi- 
fica para nós um armazém aonde se encontram dados empi- 
lhados. Existem na RAM das duas máquinas 3 zonas do tipo 
Stack. 


a) O Stack da calculadora, com localização endereçada pela 
variável STKBOT, é um espaço aonde o monitor armaze- 
na todo o cálculo transitório em numeração de ponto flu- 
tuante, bem como parâmetros de cálculo String, momen- 
taneamente em execução. 


b) O machine Stack, que abordaremos neste grupo de 
instruções. 


c) O GOSUB STACK, já referenciado neste texto. 


O Machine Stack a que chamaremos armazém de dados, é 
muito utilizado em código máquina. 

As dimensões de empilhamento de um tal armazém é variável. 
Depende do que lá se encontra e do que queremos lá colocar. 
Dadas as suas características, não existem etiquetas de refe- 
rência sobre a proveniência dos dados empilhados. Como a 
encomenda não tem dono, ela será entregue ao primeiro 
que a vier buscar. 

O endereço base do Stack é o mais alto do conjunto, visto o 
empilhamento ser efectuado no sentido decrescente na RAM. 
Outra característica importante é o de sabermos que não alte- 
rando o endereço do registro SP, o último dado a ser empilha- 
do terá de ser o primeiro a sair. 

A maioria das rotinas monitoras serve-se deste espaço para 
salvaguardar o conteúdo indispensável de algum registro par, 
quando tem de interromper uma dada sequência em deteri- 
mento de outra aonde vá utilizar esse ou esses registros com 
dados diferentes. 

Ão recomeçar a anterior sequência, recolhe os dados armazes 
nados para prosseguir o trabalho. 

Há vários tipos de instruções máquina que se apoiam no 
Stack, pelo que vamos dividi-las em subgrupos distintos. 


Subgrupo A — As instruções PUSH 


Este conjunto de instruções permite empurrar (PUSH) 2 bytes 
de dados que formam o conteúdo de qualquer registro par, 
para dentro do Stack. 

No início desta operação, o registro SP (apontador do endere- 
ço Stack) é decrementado, sendo dada a entrada de uma có- 
pia do H.byte. Uma vez mais decrementado, permite a entrada 
do L.byte que é armazenada no novo endereço. 


As instruções deste Subgrupo: 


Mnemónicas Códigos Tempos 
PUSH AF 245 a 
PUSH HL 229 » 
PUSH BC 196 » 
PUSH DE 213 » 
PUSH IX 22 |. 229 Db 
PUSH IY 253, 229 » 


qu 
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Tempos de execução: 


Tempos N.º de bytes N.º ciclos máquina N.º ciclos T 
a 1 3 11 
Db 2 4 15 


Subgrupo B — As instruções POP 


Este conjunto de instruções permite remover (POP) 2 bytes 
de dados do Stack, para dentro de qualquer registro par. 
No início desta operação o registro SP é incrementado, dando 
saída a uma cópia do L. Byte. Incrementado uma segunda 
vez, permite a saída do H. Byte. 

Ao finalizar esta operação, os 2 bytes já copiados ficam fora 
do Stack e são limpos pelo reajuste entre espaços de memória 
demarcados pelas variáveis do Sistema. 


As instruções deste subgrupo: 


—- Mnemónicas Códigos Tempos 

— POPAF 241 a 
POP HL 225 » 
POP BC 193 » 
POP DE 209 » 
POP IX 221, 225 Db 
POP Iy 259, 225 » 

Tempos de operação: 

Tempos N.º de bytes N.º ciclos máquina N.º ciclos T 
a 1 3 10 
D 2 4 14 


Num exemplo extraído do programa monitor do ZX81, da roti- 
na de DISPLAY, o conteúdo dos 4 principais registros pares, 
são copiados para o Stack quando é seleccionado o Modo 
SLOW. Mais tarde finda a interrupção e conteúdo destes re- 
gistros é restaurado. 


A” | 
lote que a recuperação dos valores anteriormente deposita- 
dos no Stack, se obtém pela ordem inversa ao de entrada. 


Endereços Etiquetas Mnemónicas Comentários 
544 SAVE: PUSH AF transferências das 
545 » PUSH BC cópias destes re- 
546 » PUSH DE gistros para o 
547 » PUSH HL Stack. 

676 LOAD: POP HL Restauro do con- 
677 » POP DE teúdo dos mes- 
678 » POP BC mos registros, p.? 
679 » POP AF ordem inversa. 


Não é invulgar a utilização do Stack para troca de conteúdos 
entre registros pares, ou para a passagem do conteúdo dum 
registro par para outro. 


Exemplo 1: Troca de conteúdos 


PUSH BC conteúdo de HL para BC, e de BC 
PUSA HE para HL, utilizando o Stack. 
POP BC 

POR HL 


Exemplo 2: Passagem de HL para BC 


ADD HL, DE transferência do conteúdo de HL 
PUSH HL para BC utilizando o Stack. 
POP BC 


Por vezes, quando trabalhamos em C/M, queremos colocar o 
Stack Machine em qualquer outro ponto da memória. Para o 
fazer, devemos guardar cuidadosamente o endereço do anti- 
go Stack, para o devolver quando do retorno ao Basic. 


Exemplo 1: Um novo Stack 


LD (NN), SP 
LD SP, NN 


guarda o endereço anterior aponta 
o Stack para outra zona. 


Exemplo 2: Antes do retorno ao Basic 


LD HL, (NN) 
LD SP, HL 


aponta o endereço do Stack! 
devolução do endereço. 


Subgrupo C — As instruções CALL 


Este tipo de instruções, equivalente ao comando GOSUB do 
Basic, é usado sempre que se pretende saltar para uma 
subrotina do programa ou para qualquer rotina da ROM. Em 
Basic o retorno é assegurado pelo comando RETURN, em có- 
digo máquina pela instrução RET. 

Quando o Z80 encontra uma instrução CALL incrementa o 
contador de programa (registro PC) para ler o conteúdo dos 
dois bytes seguintes com os quais vai formar o endereço de 
salto e deposita no Stack o endereço da última instrução exe- 
cutada. Uma vez concluída esta operação, carrega PC com o 
novo endereço e ei-lo a cumprir a sequência imposta pela 
subrotina. 

Ao encontrar uma instrução RET, retira do Stack o endereço 
de retorno que devolve ao registro PC e prossegue o trabalho 
interrompido no programa principal. 


Mnemónicas Códigos Comentários 
CALL addr. 205,N,N GOSUB incondicional 
CALL C, addr. 220,N,N Se carry = 1 
CALL NC, » 212,N,N Se carry = O 
CALL Z, addr. 204,N,N Se flag zero = 1 
CALL NZ, » 196,N,N Se flag zero = O 
CALL  M, add.  252N,N Se flag sinal = 1 
CALL E, oii 244,N,N Se flag sinal = O 
CALL PE, add.  236,NN, Se flag O/P = 1 

CALL PE, add.  228,N,N Se flag O/P = 0 


Ensaio 1: ZX81 


Elaboração rápida duma linha REM para suporte de código 
máquina. 


ORG 16523 “ início do Assembler 
DIM: DEFB N : dimensão da REM 
LD HL DIM 
LOOP: LDA (16511) 
INC A 


CP (HL) - verifica a dimensão 


a CLUBE Zso 
RET Z Ensaio 2: Spectrum 
LD (16511) A - expande 1 caractere 
LD A 27 - Caractere a imprimir : ço E 
LD HL 16515 : aponta a zona a expandir ai ini i psa sacia cias 
CALL 1318 :- ROM - ADD - CHAR SUBROTINE à 
> ——— ORG 23770 
JR LOOP LOOP: LD A (23757) 
INC A 
CP 253 : valor máximo da REM 
Basic RET Z 
LD (23757) A 
LD A 46 : Caractere a imprimir (6) 
LD HL 23761 : aponta início extensão 
1 REM... CALL 3976 : ROM - ADD - CHAR SUBROTINE 
10 REM (Reserva de 25 caracteres para o C/M.) JR LOOP. 
20 LET AS = «000 033 139 064 058 127 064 060 190 
200 050 127 064 062 027 033 131 064 Basic 
205 038 005 024 237» 1 REM... 
30 FOR F = 1 TO LEN A$/3 10 REM (Reserva de 22 caracteres para o C/M.) 
40 POKE 16522 + F, VAL AB ((3*F)— 2 TO3*F) 20 FOR N = 1 TO20 "ai 
50 NEXT F 22 READ A: POKE 23769 + N, A 
60 CLS 25 NEXT N 


70 PRINT «QUANTOS BYTES QUER RESERVAR? (Mini- 
mo 5, máximo 253) 

80 INPUT A 

90 POKE 16523, A 

100 RAND USR 16524 

110 POKE 16510, O 


30 CLS: INPUT «Qual a extensão da REM? — (mínimo 5, 
máximo 253»; B 

35 POKE 23775, B 

40 RANDOMIZE USR 23770: POKE 23756,0 : STOP 

100 DATA 58, 205, 92, 60, 254, 253, 200, 50, 205, 92, 62, 
46, 33, 209, 92, 205, 136, 15, 24, 236 


PAULO METELO 


Como sabem a maioria dos jogos e outro tipo de programas, 
não se conseguem parar e sempre que se desejar introduzir 
um outro programa no computador, só existe uma maneira, 
que é a de desligar a alimentação, tornando-a a ligar e introdu- 
zir então o novo programa. Isto tudo porque não existe nenhu- 
ma tecla no Spectrum que faça parar ou mesmo anular este 
tipo de programas. 

Mas este método tem um pequeno inconveniente, pois o regu- 
lador de tensão que o Spectrum tem no seu interior e que re- 
gula uma tensão de 9 ou mais volts para 5 volts, não «gosta» 
muito desta operação devido aos picos de tensão que ela en- 
volve, os quais mais cedo ou mais tarde irão destruir o regula- 
dor e com ele mais alguma coisa, por isto tudo esta operação 
sendo repetida diversas vezes não será muito de aconselhar 
pois pode ter consequências não muito agradáveis. 

Mas para remediar este inconveniente existe uma pequena 
operação que você poderá realizar com pouco dinheiro e um 
pouco de habilidade. 

Trata-se da montagem de uma pequena tecla no seu Spec- 
trum a qual depois de actuada irá «limpar a memória», fazendo 
com que a operação descrita anteriormente pareça pré- 
-histórica. 

Na realidade essa tecla vai realizar o seguinte: no CUP (Z80) 
existe um pino a que corresponde o RESET o qual quando 
posto a um nível lógico O vai «limpar a memória» (actuando 
como a função NEW), desaparecendo o anterior programa 
para que um novo possa ser efectuado. 


“Este RESET está sempre a um nível lógico 1 e para que este 


passe a nível O é preciso que a tecla ligue o pino do RESET 


que no Z80 tem o número 26 à massa que eventualmente po- 
derá ser o pino 29 o qual está ligado à massa (GND), ou qual- 
quer ponto de massa. 

Para a instalação da pequena tecla bastam dois pedaços de 
fio, um ferro de soldar e um pouco de habilidade. Tem de colo- 
car a tecla no computador, e um bom lugar para o fazer se 
no canto superior direito, mas depende do seu gosto, além 
disso a tecla terá de ser o mais baixa possível, depois de insta- 
lada basta identificar os pinos 26 e 29 do Z80 ou então desco- 
brir o condensador C27 o qual vai ligar a estes pinos, sendo 
bastante mais prático ligar a tecla aos terminais deste 
condensador. 

Para melhor compreensão pode seguir o esquema abaixo 
apresentado o qual como pode ver é bastante simples poden- 
do ver com a nomenclatura de PI a referida tecla. 

No caso de querer fazer esta montagem mais perfeita, em vez — 
de uma só tecla poderá por duas em série. Isto tudo para evi- 
tar que acidentalmente a tecla seja premida e o programa «de- 
sapareça», assim só carregando nas duas teclas é que fará o 
RESET, portanto mesmo que carregue acidentalmente numa 
só tecla nada acontecerá e o programa não é destruído como 
anteriormente poderia acontecer. 

Para um melhor entendimento verifique o segundo esquema. 
Quanto à localização do condensador C27, esta varia de 
computador para computador, pois como sabe existem diver- 
sas versões de circuito impresso, portanto tenha um pouco de 
paciência e tente encontrá-lo. 


NOTA: Se o seu computador está na garantia, se o abrir esta automaticamente 
é invalidada, portanto pense um pouco antes de o abrir. 


CLUBE Zso 


1) Definição 


Um quadrado mágico é um quadrado guarnecido de n? 
numeros inteiros positivos e diferentes tais que a soma dos n 
números que figuram sobre uma mesma recta (linha, coluna 
ou diagonal) é sempre a mesma. Na figura junta, por exemplo, 
as linhas (horizontais) produzem a soma 1+12+7+14=8+ 


Fig. 1 


+13+2+11=10+3+16+5=15+6+9+4=34; as colunas (ver- 
ticais) produzem: 1+8+10+15=12+13+3+6=7+2+16+9= 
=14+11+5+4=34; e as diagonais produzem: 1+13+16+4= 
=14+2+3+15=34. 

É possível admitir, na formação dos quadrados mágicos, nú- 
meros negativos, mas esse facto não acrescenta nada à sua 
generalidade, porque um quadrado mágico continua mágico 
quando se aumentam todos os seus elementos de uma 
mesma quantidade constante. Daqui resulta que um quadrado 
mágico com números negativos pode transformar-se noutro, 
contendo só números positivos adicionando a todos os seus 
elementos um número suficientemente grande. Além disso, 
um quadrado mágico continua mágico se se multiplicam todos 
os seus elementos por um mesmo número (diferente de zero). 
Por meio de uma escolha conveniente deste multiplicador po- 
de transformar-se um quadrado mágico contendo fracções 
ium outro que contenha só números inteiros. Por estas ra- 
zões, só admitiremos números positivos na formação de qua- 
drados mágicos. 

Ordinariamente, os quadrados mágicos devem ser formados 
pelos n? primeiros números inteiros. O quadrado mágico diz- 
-se então normal. Ocupar-nos-emos muito pouco de outros 
tipos de quadrados mágicos, e por isso omitiremos em geral o 
termo normal, que se subentenderá. No caso de um quadrado 


E pel 1 
mágico normal, a soma constante é igual an (n2+1) e 


chama-se a constante mágica. Toda a sucessão de n núme- 
ros distintos compreendidos entre 1 e n? e cuja soma é a 
constante mágica chama-se sucessão mágica. 

O número n das linhas ou das colunas é a ordem do quadrado. 
Às linhas e colunas chamaremos as ortogonais. O termo dia- 
gonal generalizar-se-á do seguinte modo: a recta que une o 
canto superior esquerdo ao cantó inferior direito contendo um 
número de cada linha e um de cada coluna, forma uma das 
diagonais principais. Se traçamos paralelas a esta diagonal 
principal pelo p-ésimo elemento (a partir de baixo) da primeira 
coluna (a partir da esquerda) e pelo p-ésimo elemento (a partir 
da esquerda) da primeira horizontal superior, o conjunto 
destas duas paralelas contém n elementos, um de cada linha 
e um de cada coluna, e forma uma diagonal quebrada. Todas 


as diagonais de que falamos são diagonais descendentes. 
A diagonal que passa pelo canto inferior esquerdo e pelo 
canto superior direito e as diagonais quebradas que lhe são 
paralelas são diagonais ascendentes. Na figura 1, as diago- 
nais quebradas descendentes são: (8, 3, 9, 14), (10,6, 7,11), 
(15, 12, 2, 5), e as diagonais quebradas ascendentes são: (6, 
16, 11,1), (9,5,8, 12), (4,10, 13, 7). Um quadrado de ordem n 
tem precisamente n diagonais de cada espécie. 

Um quadrado que não é mágico somente por as suas diago- 
nais principais ou por uma delas não o serem chama-se semi- 
-mágico. Por outro lado, um quadrado é panmágico se todas 
as diagonais (principais e quebradas) são mágicas. 

Um quadrado mágico diz-se bimágico se o quadrado formado 
substituindo cada número pelo seu quadrado é também mági- 
co. Um quadrado bimágico chama-se trimágico se os cubos 
dos seus elementos formam também um quadrado mágico. 
E assim sucessivamente: a denominação geral de tais qua- 
drados é multimágicos. 
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LUÍS AMARAL e JOÃO. JACINTO 


Programa destinado aos alunos do 11.º ano de 
construção civil. 


Reaccoes das 
46. 


REACCOES CE APOIOS 


o 
as forcas verticais 
newtons 
as forcas horizontais 


as verticais 
584271 n 
as horizontais 


TecLe para voltar ao menu 


DIAGRAMA ESFORCO TRANSVUVERSO 
Tecte para voltar ao menu 


DIAGRAMA MOMENTO FLECTOR 
Tecte para voltar ao menu 


O OU pl 


Tecle para voltar ao menu 


DR SR pç e 
(O =][][IIZIZXZZ==T j PTTTTTTTTTETT TTIJIJFIZ>T PTE CLUBE Zso 


W""""[I PIZZA E fTfMZZSSCEE —————"—— 


4 BORDER 72: PAPER 2: INK O 

2 cts 

*% BEEP 0.2,304 BEEP D.,5,16 

a REM € Luis Amaral e Joao Jacinto Janeiro 85 

s PRINT " Este programa e destinado especialmente aos alunos do ii ano da are 


a de construcao civil e tem por objectivo a resolucao de certos problemas de res 
istencia de materiais";AT 9,0; "Segue-se um questionario que tem por objectivo a 
introducao de dados";AT 13,0;"Para uma correcta introducao de dados pede-se que 

leie atentamente tudo o que o for escrito no televisor” 

10 GO SUB 2060 

15 CLS : PRINT FLASH 15AT 11,75" INTRODUCAO DE DADOS": PAUSE 200: CLS 

>O INPUT "Comprimento da viga 7?(em metros) (maximo 8 metros)*,a 

z0 IF a>8 THEN PRINT FLASH 1;"NAO SABE LER, SEU BURRO/A ?": FLASH Oo: PAUSE 1 
so: CLS : 660 TO 20 

35 DIM c(3,2) 

40 INPUT “A viga e encastrada ? (s/n)", LINE b$ 

41 IF b$="s" THEN GO TO 80 

44 PRINT FLASH 15AT 11,12;5"APOIOS*: FLASH O: PAUSE 200: CLS TS 

46 LET ac=2 

so FOR d=i TO 2 

ss CLS : PRINT FLASH 1;"APOIO "5d: FLASH O 

60 PRINT : PRINT "APOIO FIXO > ENTRE O“: PRINT "APOIO MOVEL > ENTRE 1º 

65 INPUT "Apoio fixo ou movel a 40 ou 11)ºge(ttso) 

20 INPUT “Distancia do apoio a ponta esquerda da viga ? (tem metros)",c(2,d): € 


75 NEXT d 

77 60 TO 95 

80 INPUT "A viga e encastrada do lado direito ou esquerdo ? (ENTRE "di" Ou-*es 
2) a AE 8 

85 LET ac=i 

os INPUT "Existem forcas aplicadas nao continuas ? (5/n)",, LINE f& 

92 IF 4$="n" THEN LET 9=0: GO TO 160 

100 INPUT "Numero de forcas aplicadas 7*,9 

113 DIM ht(3,9) 

115 FOR i=i TOS 

116 CLS : FLASH 1: PRINT "FORCA “si: FLASH O 

119 GO SUB 1500 

120 INPUT "Forca aplicada ?(tem newtons)º,ht(l,i) SO 
130 INPUT "Distancia da aplicacao da forca a ponta esquerda da viga ? tem metro 
s)"asht2,i): IF htZçã)2a THEN PRINT FLASH 15AT 10,0;"MAS VOCE E MESMO ESTUPIDO 
/A 111": PAUSE 150: PRINT OVER 15AT 10,05 "MAS VOCE E MESMO ESTUPIDO/A !!!"i; FLA 
SH O: GO TO 130 

140 INPUT "Angulo formado pela viga €& pela forca ? (em graus)",h(t3,i): CLS 

145 LET h(3, i)=PIX(h(3,1i))/180 

150 NEXT 1 

160 INPUT "Existem forcas aplicadas continuamente ? (5/n)",s LINE 5Í& 

170 IF j$="n" THEN LET 1=0: 60 TO 250 

180 INPUT "Numero de forcas continuas Edi 

190 DIM m63,1)* DIM yt2,1) 

200 FOR n=i TO 1 

210 CLS : PRINT FLASH 15"FORCA CONTINUA ";n: FLASH O 

215 GO SUB 1500 

220 INPUT "Forca aplicada ? tem newtons/metro)",smtisn) 

230 INPUT "Comprimento da aplicacao » (em metros)"“,s,m(2,hn) 

240 INPUT "Distancia do inicio da aplicacao a ponta esquerda da viga ? (tem metr 
os)", jmt3;ni: CLS 

245 NEXT n 

250 PRINT PAPER 75 INK 1; FLASH 15AT 7,25"0 COMPUTADOR ESTA A CALCULAR"; PAPER 
»s INK Z3AT 14, 13 “ESPERE PELO MENU, SE FAZ FAVOR": FLASH O 

260 IF b$="s" THEN GO SUB 1550 

270 LET yu=g+l+ac 

277 DIM b(yu,30%a): DIM k(yu, SO%a): DIM x(gtac): DIM w(tSOxa): DIM z(3O0%a) 


CLUBE Zs0 11 


280 FOR d=i TO SOxka 

285 IF d=INT (30%a/2+0.5) THEN BEEP 0.5,20 

290 IF 4$="n" THEN LET p=0: LET q=0: LET r=0: 60 TO 405 

300 FOR i=i TO g 

305 IF d>1i THEN GO TO 5385 

310 IF i>i THEN GO TO 550 

315 LET p=SIN h(S3S,i)Xh(1,iã) 

320 LET q=COS h(3,i)Xh(l,iãi) 

325 LET r=(h(2,1)-c(2,1))XSIN h(3,1)Xh(I,d) 

330 IF i=g THEN GO TO 570 

335 LET s=p+SIN h(S, iti)XkhCi,i+i) 

340 LET p=s 

345 LET t=q+COS h(S,i+ti)XAhCIi,i+l) 

390 LET q=t 

355 LET u=r+(h(2,i+1)-c(2, 1))XSIN hCS, i+ti)XNhCI,i+Ã) 

360 LET r=u 

3720 LET x(i)l=30%Xh(2,i) 

390 IF x(i)<d THEN LET b(i,d)=SIN h(3,i)Xh(1L,i): LET ktisd)=(d/3S0-h(2,i)) XSIN 
htS,i)kh(1,i) 

400 NEXT i 

405 IF j$="n" THEN LET x=O0: LET z=O0: GO TO 505 

415 FOR n=i TO 1 

420 IF d>i THEN GO TO 485 

425 IF n>1 THEN GO TO 440 

430 LET x=mti,n)kmt(t2,n) 

435 LET z=(m(2,1)/2+m(3,1)-c(2,1))%km(2,1)%km(1,1) 

440 IF n=1 THEN GO TO 470 

445 LET w=x+m(iL,nti)kmt(t2Z,n+1) 

450 LET x=w 

455 LET y=z+(m(2,n+1)/2+m(3,n+1)-c(t2,1))km(Ln+1i)km(tZ,;nti) 

460 LET z=y 

4720 LET yt1,n)=350%km(2,n) 

4725 LET vy(2,n)=30km(S,n) 

485 IF y(2,n)<d THEN LET btgtn,d)=m(i,n)k(td/30-mt3,n)): LET k(gtn,sd)=(d/S50-mt(s 
sn))/2%KEmtIi,n)k(td/30-m(S,n)) 

490 IF y(i,n)+y(2,n)<d THEN LET btgtn,d)=m(ti,n)kmt2,n): LET k (g+n,d)=(d/30-m(2 
sn)/2-m(3,;n)D) Emti,n)kmt2Z,n) 

500 NEXT n 

S03 IF d>1i THEN GO TO 5535 

505 IF bg&="s" THEN GO TO 525 

“t0 EET ct3,2)=-(r+r)/tec(t2,2)-ctZ,i)) 

“158 LET ct3,1)/=-(p+x+0(3,2)) 

520 GO TO 535 

9235 LET c(3,1)=-(ptx) 

5930 LET ab=-(zt+tr) 

935 FOR j=i TO ac 

540 LET x(tgtj)=30%c(2,5) 

SSO0 IF x(gtj)<d THEN LET b(g+l+j,d)=c(3,5): LET kKtg+l+j,sd)=(d/3J0-c(2,i))XC(S,j 
95 NEXT j5 

558 GO SUB 1040 

560 NEXT d 

Sé1i RESTORE : GO SUB 2005 

S62 CLS : PRINT FLASH 15AT 0,145"MENU"; FLASH O 

563 PRINT : PRINT : PRINT : PRINT : PRINT "REACCOES DE APOIOS > ENTRE "RA"*: PR 
INT "ESFORCO TRANSVERSO > ENTRE "ETº'X": PRINT "MOMENTO FLECTOR > ENTRE "MF? %* 
: PRINT "ESFORCOS E MOMENTO FLECTOR DE SECCAO A ENTRAR"; TAB (19)5"> ENTRE “*ES' 
"3: PRINT "NOVOS DADOS > ENTRE "ND”": PRINT : PRINT "( % > diagramas )* 
564 PRINT AT 14,0;"notas : 1) No caso da viga ser encastrada s""REACCOES DE AP 
OIOS"" apresentara tambem como resultado o momento de encastramento";AT 18,05"2) 
Nos diagramas 'ET' e *'MFº e necessario introduzir uma escala por motivos de es 
paco” 

565 INPUT LINE k$: CLS 


Td EEE EEE AO 


67 IF k$="ND" THEN RUN 15 

3720 IF k$="ET"º OR k$="MF" THEN GO SUB 1580: GO TO 900 

75 IF k$="ES" THEN GO TO 805 

80 IF b$="n" THEN GO TO 700 

630 PRINT AT 0,10; FLASH 15 "ENCASTRAMENTO"; FLASH O 

640 PRINT : PRINT : PRINT FLASH 1;"Reaccoes do encastramento"; FLASH O 

650 PRINT : PRINT "Reaccoes das forcas verticais",c(3,1);"” newtons" 

655 PRINT "Reaccoes das forcas horizontais",-q;" newtons" 

670 PRINT : PRINT : PRINT FLASH 1; "MOMENTO DE ENCASTRAMENTO"; FLASH O: PRINT : 
PRINT ab;" newtons.metro" 

6753 G0 TO 780 

700 FOR d=1 TO 2 

710 IF d=2 THEN GO TO 730 

720 PRINT FLASH 15AT 0,7; "REACCOES DE APOIOS"; FLASH O 

730 PRINT : PRINT : PRINT FLASH 15"Reaccoes do Apoio "jd: FLASH O 

740 PRINT : PRINT "“Reaccoes das forcas verticais",c(3,d);" newtons" 

750 IF c(i,d)=1 THEN PRINT “Reaccoes das forcas horizontais","O newtons": GO T 
O 770 

760 PRINT "Reaccoes das forcas horizontais",-q;" newtons" 

770 NEXT d 

780 GO SUB 1520 

790 CLS 

800 GO TO 562 

810 INPUT "A que distancia esta a seccao da ponta esquerda da viga ? (em metros 
J"ssas 

815 IF b$="n" THEN LET aqg=0: GO TO 820 

817 IF e$="di" THEN LET aq=0: GO TO 820 

819 LET aq=-ab 

820 LET as=30%as 

830 LET af=wtas) 

840 LET ag=z(as)taqg 

850 CLS : PRINT FLASH 1;"ESFORCOS E MOMENTO FLECTOR DA SECCAO DISTANCIADA ";as 
/30;" METROS DA PONTA ESQUERDA DA VIGA": FLASH O 

860 PRINT : PRINT : PRINT : PRINT "Esforco transverso",af;" newtons": PRINT : P 
RINT "Esforco normal ou axial",ABS q;”" newtons": PRINT : PRINT "Momento flector" 
ssa9:" newtons.metro”" 

820 GO SUB 1520 

880 CLS 

890 GO TO 562 

200 FOR j=i TO g+ac 

205 IF x(j)=0 OR xt(j)=30%a THEN GO TO 930 

P1O LET d=INT (xt(j)+0.5) 

7220 GO SUB 1630 

9230 NEXT j 

931 LET ax=5 

932 G0 SUB 1700 

7254 INPUT “Escala da medida vertical ( QUANTAS VEZES A MEDIDA INICIAL ) 2",av 
9535 OVER 1: GO SUB 1700 

936 LET ax=av+5 

92372 OVER O: GO SUB 1700 

758 IF k$="MF" THEN PRINT AT 20,3; FLASH 15 "DIAGRAMA MOMENTO FLECTOR": FLASH O 
- GO TO 940 

259 PRINT FLASH 15AT 20,2; "DIAGRAMA ESFORCO TRANSVERSO": FLASH O 

240 IF b$&="n" THEN LET ag=0: GO TO 950 

7942 IF e$g="di" THEN LET aqg=0: G0 TO 950 

?45 LET aq=-ab - 

950 FOR d=i TO 30%a 

260 IF k$="MF" THEN GO TO 985 

2720 LET ah=w(d) 

280 LET aj=INT (ah/av+0.5) 

982 GO TO 990 

985 LET ah=-(agtz(d)) 

287 LET aj=INT (ah/av+0.5) 


CLUBE Zso 


13 


290 


A INTRODUZIR UMA ESCALA 


995 
1000 
1010 
1020 
1040 
1050 
1060 
10720 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1495 
1500 


IF ABS aj>70 THEN CLS : PRINT AT 1i1,10;5"ESCALA PEQUENA !"5AT 153,05" 


", "MAIOR": PAUSE 130: CLS :i GO TO 370 


VOLTE 


PLOT 
NEXT d 
GO SUB 1520 

CLS :i 60 TO 362 

FOR i=i TO yu 

IF i>i THEN GO TO 1080 
LET wtd)=b(i,d) 

LET z(td)=k(tis,d) 

IF i=yu THEN RETURN 
LET ap=w(d)+b(i+i,d) 
LET w(d)=ap 

LET ao=z(d)+k(i+i,d) 
LET z(d)=ao 

NEXT i 
RETURN 
STOP 
PRINT : 


INK 2;d+10,aj+87 


PRINT "F. apl. para cima > positiva": PRINT "F. apl. para baixo > n 


egativa” 


1510 
1520 
1530 
1540 
1550 
1560 
15720 
1580 
1582 
1385 
15872 
1590 
1595 
1600 
1610 
1615 
1620 
1630 
1640 
1650 
16460 
1670 
1480 
1690 
17200 
17210 
30 

1720 
1730 
2005 
2006 
2007 
2010 
2015 


0010, 


2020 
2030 
2040 
2050 
2060 
2070 
3000 
6000 


RE TURN 

PRINT AT 21,3;"Tecle para voltar ao menu” 
IF INKEY$&<>"" THEN RETURN 

GO TO 1530 
IF eg="di” 
IF e$="es" 
RETURN 

IF k$="MF" THEN 
PRINT OVER 15AT 
IF k$="ET” THEN 
FOR f=0 TO 3SO0xa 
PLOT f+10,987 

IF €/30=INT (f/30) THEN PLOT f+ioO,ss 
IF £f=0 OR f=ax30 THEN GO SUB 1620 
NEXT + 
RETURN 

LET d=f 

FOR m=20 TO 
PLOT d+10,m 
NEXT m 

FOR m=22 TO 
PLOT d+iism 
NEXT m 
RETURN 
PRINT AT 0,0;5"Cada medida horizontal = 1 mº” 

IF k$="MF" THEN PRINT AT 1,0;"Cada medida vertical = 


THEN 
THEN 


LET c(2,1)=a 
LET c(2,1)=0 


PRINT AT 450)º-"JAT 17,05º+º 
10,05"a 
PRINT AT 4,05 "+"5AT 17,05"=* 


b": OVER O 


155 


155 STEP 5 


"sax5" Nem": GO TO 17 
PRINT AT 1,0;5"Cada medida vertical = 
RETURN 

FOR d=i TO 2 

IF d=2 THEN LET a$f="b": 
LET af="a” 

FOR i=0 TO 7 

DATA 0,0,0,0,0,BIN 00111100,BIN 01000110, BIN 01001010, BIN 01010010, BIN 0110 
BIN 00111100,0,0,0,0,0 

READ r: POKE USR a$+i,r 

NEXT i 

NEXT d 

RETURN 

PRINT AT 21,0;"Tecle para a introducao de dados” 

GO TO 1530 

GO TO 562 

SAVE "CARNEIRO" 


GO TO 2010 


LINE 1 
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A Torre de Hanói é um quebra-cabeças bastante conhecido e 
comercializado em praticamente todos os países ocidentais, 
que consiste num tabuleiro com três pequenas estacas, geral- 
mente em disposição triangular, numa das quais estão enfia- 
dos sete discos de tamanho progressivamente decrescente. 


DURAM ERRA GARGALO 


| | 
4 


O desafio consiste em transferir os discos para outra estaca, 
movimentando-os um por um, sob a condição de que nunca 
um disco poderá ser colocado sobre outro de menor diâmetro. 
É demonstrável, com relativa facilidade, que o quebra- 
cabeças é sempre solúvel independentemente do número de 
discos colocados na torre, e bem assim que o número de mo- 
vimentos necessários é dado pela fórmula 27-1, em que n ex- 
pressa o número de discos. Assim, três discos podem sertrans- 
feridos em 7 movimentos, 4 discos em 15 movimentos, etc. 
A transferência dos 7 discos requere 127 movimentos. 
Embora muita gente esteja convencida da sua origem oriental, 
o quebra-cabeças foi realmente inventado no século passado 
pelo matemático francês Edouard Lucas, já referido a propósi- 
to dos números de Fibonacci, que o comercializou em 1883. A 
versão original apresentava o nome de «Prof. Calus» do Colé- 
gio de Li-Son-Stian, mas rapidamente se descobriu que estas 
designações eram apenas anagramas do Prof. Lucas do Colé- 
gio de Saint-Louis. 

Entretanto, rapidamente se espalhou uma história sobre as 
origens lendárias da Torre de Hanói e W. Rouse Bell, nas suas 
Mathematical Recreations and Essays, conta a seguinte 
lenda adaptada de uma versão francesa: 


«No grande templo de Benares, sob a cúpula que assinala O 
centro do mundo, há uma bandeja de bronze com três agulhas 
de diamante, com um côvado de altura e a espessura do corpo 
de uma abelha. No momento da criação, Deus colocou numa 
delas 64 discos de ouro puro, o maior imediatamente em cima 
da bandeja e outros cada vez mais pequenos até ao topo. Esta 
é a Torre de Brahma. Dia e noite, incansavelmente, os sacer- 
dotes mudam os discos de uma agulha para a outra, segundo 
as leis imutáveis de Brahma, que se especificam que o sacer- 
dote de turno não deve mudar mais do que um disco de cada 
vez e colocá-lo numa das agulhas sobre um disco maior. 
Quando os 64 discos forem transferidos da agulha em que 
Deus os colocou na Criação, para uma outra, a torre, o templo 
e os Brahmas desfazer-se-ão em cinzas, com grande es- 
trondo, e o mundo deixará de existir.» 

Como, neste caso, são necessários 264-1 movimentos, tra- 
ta-se de uma das mais optimistas previsões quanto ao 
fim do mundo. Mesmo que os sacerdotes, trabalhando sem 
cessar, mudem um disco por segundo, a sua tarefa dura- 
rá muitos milhares de milhões de anos. Rigorosamente 
18 446 744 073 709 551 615. 
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JOSÉ BEÇA 


PORTO 


Este programa permite fazer chaves de totobola to- 
talmente ao acaso. 


2 REM Er JOSE BECO 
a REM TOTOBOLA 
à LE; C=8 
a SBURDER & FREER & INE Zi: A 
LS 
o LÊ: EsCc+I 
15 REN FORMATO 
ca PLOT l$ã,22: DRRIW l5,B 
ia PLUT lgã,o? LRÉS à, 1I0S 
Yi PLOT 115,22: CRAU à, 1I0S 
i2 PLOT Iljga, 125: CRAaAU 15,8 
às REM COLULLO 
&d PREN BT 4,5. FLASH à; -BRIG 
NT is CHAVE DO TUTOBULAS 
&S. LET B=5 
+55 LET R=AB5S i(RNCsSlad) 
à? LE: BExzB+i 
3 LF A>=0 AND B:5E THEN PRINT 
vB, £3; “&€ 
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CARLOS MORENO 


PORTO 
«FALA» 


(se tem sintetizador de voz) 


O nosso amigo Carlos Moreno comprou um sintetizador de 
voz e notou uma grande dificuldade em dizer algumas frases. 
Através da leitura do manual e diversas tentativas encontrou 
sons correspondentes aos sons do português. 

Utilizando esses sons fez um programa que traduz qualquer 
frase, imprime a tradução e põe o computador a falar. 
Depois de introduzir o programa faça RUN e entre pelo teclado 


a frase a 


traduzir, quando acabar faça ENTER; irá aparecer na 


zona inferior do écran a frase traduzida e ouvirá a frase no 
altifalante. 
Exemplos de como escrever: 


«Sérgio» fica «seerjio» 
«casa» fica «Caasa» 
«morte» fica «moorte» 


Se O «a» é acentuado escrever «aa», a mesma coisa para O 


«O» € O 


«O», 
'BUS : LET alado El £o=0 
PERSE Ca riicode  INnEvó= io É 
11 - (CODE INKEYg=11 AND al 
LET co=co+icCODE INKEYg=9 AN 
4.31) - (CODE INKEY$&=S AND co>y 
ODE INKEvY5=13 THEN GO TO 
3. IF CODE INKEYv&>=32 AND CODE 
7 THEN PRINT AT al,co 


InNREv$g<=127 


LEI CASO: dr tgõz3e T 


hREN LET CUsp LET aiLl=ai+i 

à IF CODE INKEvG=12 THEN LET 
cozco-ico<s>01 PRINT HT alt,co;” 

Ss PRINT OVER L,;AT al,co;'. 

5 PRUSE 

? WRaANT QUER LiHT 4U,ED; 

5 GO TO E 

Lig. us ag=". 

:ià COR Ns TO at: FOR cz TO 3 


ate GGic+i) =SCREENG- (nc): NE 
E» E 

LS LET S44=” 

co LEI cpe-l 

SO LEI aS=as4.” 

à LES E=p+l 

Sa LET p=p+il 
á 3 iF p>=LEN as THEN GO TO Ide 

SS? PRANT HT l3,0:,55 

bi iF agipi='ao AND agip+il='a 

THEN LET sg==g+"al. GÓ TO dê 

DB3S IF azgipi=z'o BAND agip+il='u 
“ THEN LET sã=5g8+" iDOJC: GO TO d 
E 

to if amip;)='a  TREN CET sg=s5 
“teto: 60 TU SB 

SU IF aGipj="  TRENTET s$g=sg 
ct": oo Ss = | 

Sa JF asipiz'b' THEN LET =E=55 
go GO To sa 

ida LF agipi='co AND agilp+il='h 

THEN LEiL SaAsEsg+Cich)": SO TO é 
E 

lilo IF.asipi SC THEN LET sg=5& 
“teto MEO TU SU 

teo IF asipis“do THEN LET Ss 6=5& 
-" tdd:". GO TO Sy 
lzao IF agipi='e" AND agbip+li="e 

THEN LET sg=sg+riet: GO TO Sa 
lãa IF agipi=z'e THEN LET sg=s& 
ea. GU TO [a 

tão. IF- aBitp)="f' THEN LET sf=5% 
trad JE SO Ea 

1690 IF anípi='ag THEN LET s$g=55 
Cia SOTO. SE SE 

17d IF agipi=z'h' THEN LET sb=s A 
E 2 pu To SB 

a IP astp)="i" BND agip+1)=1 

THEN LET sS8=54+" tee): GO TO d 
189 IF asítp)=“i*' TMEN KRET 5$6=55 
e": BO TE SB 

1º) IF astpsj='4 THEN LET s=sg=5& 
Eca e dO Tuca 

229 IF agipi='k THEN LET s=s&=5& 
kt: GO SO SA a x 
201 IF asipi="lo AND agip+li="h 
“ THEN LET sg=28+" iuy)C: GO TU à 
A 

295 IJ aBsipi=)'io AND agip+ijsj='l 

THEN LET sg=sgG+"iiltilt: GO TO d 
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acl) LP aBipi="Lo THEN LET sg=s4 O roi TO dar 

E o “oia 50 TO 59 

aco IF agipi='mo THEN LET sg=s& .DR0 LET SEisIa="-* 

* ue 490 5 “025 PRINT AT 15,0,55 

230 IF agíipi='n" THEN LET sg=55 1950 NEXT n 

ae LO 20 1068 GU TO E 

.2ãa IF aGgipi="'o* AND agip+li="o 

CANnEN LET ss=sg+"0": GO TO dB 

250 IF agipi=“o* THEN LET sg=s&6 à 

-“luhit: GO TO 59 ATENÇÃO 
Me A O E e PA pera Sang 

e ES a ADD de DI CES SÓCIOS DO CLUBE QUE QUEREM ADQUIRIR 
250 IF agipi='r" AND agip+li="r EQUIPAMENTOS INFORMÁTICOS COM FACILIDA- 
ú TER LETSEg=sg+"drrSC:rBo TO-dS DES DE PAGAMENTO. 
G0e ME agitar THRRC GET EU=ea TÊM SIDO DIRIGIDOS AO CLUBE, VÁRIOS PEDIDOS 
310, IF asipi=oso THEN LET sã=55 NESSE SENTIDO. 

e» | tt dE Á A 

320 IF agipi="t" THEN LET sg=s& ESTÁMOS A ESTUDAR A FORMAÇÃO DE PEQUE- 
+" (Ati GO TO GD o A NOS GRUPOS PARA AQUISIÇÃO DE FLOPPY DISK, 
AUS LEAR RR imo o SERIO SOTO IMPRESSORAS E OUTROS PRODUTOS. 
ao a a SE ESTÁ INTERESSADO EM ADQUIRIR PRODUTOS 
350 IF agípi="u” THEM LET s$=5$ INFORMÁTICOS EM TERMOS DE UM ESQUEMA DE 
O o tio E CS E GRUPO, PARECIDO COM OS POLIGRUPOS, ES- 
Ec RR Gm: qd a CREVA-NOS A DESCREVER O SEU PEDIDO E 
370 IF astpi='uo THEN LET sg=55 COMO PODE DIVIDIR O SEU PAGAMENTO. 

e AS a o 4 

35o IF agipi='z" THEN LET sg=55 MEDIANTE OS VÁRIOS INTERESSADOS E O VOLU- 
-"2": Go TD Se 

não FE aRiD/ nº” THEN LET 24-55 ME DE VALORES, PROCURAREMOS ESTRUTURAR 
"Boto So QUALQUER COISA DE INTERESSANTE, NESTE 
Jo IP asipi=" THEN LET s$=s8 CAMPO. 

e GO TO SA 
asia IF agipi=". THEN LET sõ=s5 


CARLOS MORENO 
PORTO 


Como em Portugal a maior parte das casas de Software não 
tem representação vemo-nos obrigados a copiar o Software 
que algumas pessoas trazem de Inglaterra; para isso necessi- 
támos de um copiador, no entanto nem todos os copiadores 
profissionais (Lerm, etc.) conseguem adaptar-se às nossas 
necessidades. Por isso pode ser necessário fabricar o nosso 
próprio copiador. 

O primeiro passo é compreender as rotinas de SAVE e de 
LOAD residentes na ROM. 

A rotina de SAVE encontra-se no endereço +04C2 e a rotina 
de LOAD em +0556. 

Vamos convencionar que a primeira série de ruídos que ouvi- 
mos ao carregar um programa chama-se Header e a segunda 
e maior chama-se Bloco, as riscas vermelhas e amarelas 
chamam-se Leader e as riscas azuis e amarelas chamam-se 
Bytes, O primeiro desses bytes chama-se Leading Byte. 

O Header indica ao computador se ele vai receber Bytes, um 
programa ou uma String (String é um conjunto de números ou 
letras), também nos indica o nome do programa e outros da- 
dos que variam com o tipo de código (programa ou Bytes ou...) 
que vai receber. 

O bloco contém a informação em si. 

Visto que o Header e o bloco têm a mesma estrutura 
(Leader + Bytes) o computador utiliza a mesma rotina de gra- 
vação. A distinção entre eles reside no Leading Byte sendo 
este no Header O e no Bloco 255. 

No entanto há programas que utilizam valores diferentes com 
o objectivo de dificultar a cópia. 


A partir deste momento é necessário ter alguns conhecimen- 
tos de código máquina para prosseguir. Se não conhecerem 
essa linguagem sugiro que leiam «Introdução à linguagem 
máquina» de Fernando Preces. 

A rotina de SAVE permite fazer SAVE de um HEADER ou um 
Bloco, antes de ser executada o registo DE deve conter o nú- 
mero de Bytes a serem enviados, IX o endereço incial dos 
Bytes e o acumulador, o leading Byte. 

As características da rotina de Load são semelhantes tendo 
contudo algumas diferenças. IX o endereço inicial para onde 
se vão colocar os Bytes, DE número de Bytes a apanhar, acu- 
mulador tem o valor do Leading byte que pensamos vir a apa- 
nhar (se o Leading byte apanhado for diferente do acumula- 
dor, a rotina faz RET), a Carry Flag Reset para Verify e SET 
para Load. 

Como não podemos prever o valor do Leading byte que vamos 
apanhar e temos de o conhecer quando os bytes forem apa- 
nhados (para usar esse valor em Save), vamos ter de alterar a 
rotina de Load e para isso devemos passá-la para a RAM. 
Este programa vai fazer isso: 


10 FOR n=1366 TO 1506 
20 POKE (n+64000), PEER n 
30 NEXT n 


Com POKE 65450,0 e POKE 65451,0 fazemos com que a roti- 
na considere o Leading byte como um byte normal e portanto 
O armazene na primeira posição, indicada por IX, e que não o 
compare com o acumulador. 


(Continua no próximo número) 
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(Continua no próximo número) 


QUEM AJUDA? 


Um nosso amigo tem dificuldade em traduzir o Francês 
e Inglês para o Português e como está a estudar na área 
científico-tecnológica, e a maioria dos livros encontra-se 
nestas línguas, assim quando os adquire, leva muito 


outras disciplinas. 


tempo para os traduzir quando poderia estar a estudar 


Assim este nosso amigo desejava saber se existe 
Software para o Spectrum que possa desempenhar esta 


função. 


Embora seja impossível traduzir o livro todo, talvez seja 
possível traduzi-lo por partes e gravar para posterior uti- 
lização, e que depois de todas as partes juntas se pu- 


desse formar uma cópia fiel do livro. 


Outra vantagem que seria necessária era a de, depois 
de gravado e quando fosse necessário procurar um as- 
sunto que estivesse, por exemplo, a meio do livro, fosse 
rápido a chegar à página requerida sem demorar nas 
páginas anteriores, e que pudesse fazer gravações su- 
cessivas sem ter que fazer LOAD todas as vezes, isto 
por causa da memória; e também no caso de querer 
imprimir na impressora parte, ou todo o texto, fosse 


possível. 


Se possível, este nosso amigo gostaria também que os 
títulos pudessem ser escritos em várias cores e dimen- 


soes e nalguns casos inseridos em rectas. 


Agradecemos toda a ajuda que possam dispensar-lhe. 


Contactar com: António J. P. Teixeira Amaral 
Rua da Carreira, 3 — Água d'Alto 


9680 Vila Franca do Campo — AÇORES 
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PETER PAN 


Nesta aventura terás o papel de Peter Pan e o teu computador 
vai-te transportar para o mundo mágico da terra do Nunca. 
Como no livro, a aventura começa no quarto de crianças. Tens 
que executar as tuas tarefas antes do dia começar. 

Só lendo o livro, poderás ter sucesso no teu principal objectivo 
— destruir o diálogo capitão Hook e roubar-lhe o seu barco 
para que Wendy e os seus amigos possam voltar em seguran- 
ça para casa. 

O computador descreverá, e em alguns casos ilustrará, os lo- 
cais e listará as coisas que vês. 

O computador perguntar-te-á «What now?», o que indica que 
está à espera dum comando teu. Os comandos são dados 
através de uma ou duas palavras. Verás que a descoberta das 
palavras a usar será um grande divertimento. Se não tiveres a 
resposta que pretendes, usa diferentes palavras, ou as 
mesmas palavras duma forma diferente. 

Encontrarás outros personagens nas tuas viagens, a maioria 
deles perigosos, mas que podem ser evitados se souberes 
como. 

Tens que ser cuidadoso se estiveres desarmado. 

Boa Sorte! 


RALLY DRIVER 


Para competir com sucesso num rally é necessário mais do 

que uma condução rápida. Tens que planear cuidadosamente 

o teu itinerário tomando várias coisas em consideração: 

— Condições metereológicas, quais os caminhos mais longos, 
quais os mais curtos, quais os caminhos mais rápidos e 
quais os mais lentos. Embora tenhas que conduzir rapida- 
mente tens que conduzir cuidadosamente. 

Toma em atenção os espectadores e os animais que por ve- 

zes te aparecem na estrada. 

Boa sorte! 


RUN FOR GOLD 


O principal desafio para os atletas de distância média é o de 

ganharem a medalha olímpica, contra os atletas que detêm os 

recordes mundiais, e batê-los em 3 distâncias — 400 m, 

800 m e 1500 m. 

RUN FOR GOLD é um jogo que te permite treinares 2 atletas 

para atingirem este objectivo: os dois para 400 m e um atleta 

para 800 m/1500 m. 

Existem 4 finais em 4 grandes campeonatos: 

— À primeira no Crystal Palace, a seguir o campeonato Euro- 
peu, terceiro o campeonato do mundo e por último os Jogos 
Olímpicos. Os teus atletas terão de correr em provas locais 
de forma a entrarem nestas finais. 

Controlas os teus atletas variando o seu andamento. Mas se 

escolheres o andamento mais rápido, os atletas utilizarão o 

máximo de energia e assim cansar-se-ão muito depressa. 

Para se qualificarem nas provas principais e obterem bons 


tempos tens que adaptar o andamento dos teus atletas para 
alcançarem as provas finais. 

Quanto melhor forem os tempos dos atletas, assim as capaci- 
dades para terem um andamento mais rápido sem se cansa- 
rem aumentarão. 

Em breve conseguirás bater o recorde mundial. 

Mas existem 40 atletas que partilham o mesmo sonho — 
conquistar a medalha Olímpica. 

Cada um deles tem tácticas individuais e quanto mais melho- 
rares as tuas tácticas assim eles também melhorarão e mais 
difícil se tornará a tua qualificação para os campeonatos 
principais. 

Tens que lutar muito para venceres. a 
A corrida para a medalha de ouro começou. f 


BUGGY BLAST 


Há mais de três séculos que o planeta ENDRA não tinha como 
habitantes Lurgons. A chave para o seu poder encontrava-se, 
no corredor central Lurgon (sector 8). Um piloto suficiente- 
mente hábil para entrar neste sector e destruir 20 Lurgons 
causará um reverso no poder que consumirá todo o complexo. 
Por causa do perigo e natureza desta missão, um sistema 
CYCREDIT RATINGS é usado para assegurar que os pilotos 
não tentarão atacar sectores acima das suas capacidades. 
Em cada parte da missão o Buggy lançará e localizará o sector 
correcto automaticamente — não é necessário qualquer con- 
trolo do piloto. 

Todos os sistemas estão equipados com ARGON GAS CRYS- 
TAL CONVERTER. Os pilotos têm de tomar em atenção o 
contador de energia e voltar para a nave-Mãe a tempo de 
abastecer. 

Isto envolve evitar ou destruir os Mine Jammers e fazer delica- 
das manobras com a nave-Mãe. 


MATCH DAY 


É um jogo de futebol cujo écran nos dá uma visão do relvado 
onde as duas equipas se defrontam. 

Só podes controlar um membro da tua equipa de cada vez, 
enquanto o resto da equipa tenta colocar-se nas melhores po- 
sições sob o controlo do computador. 

Se um dos teus jogadores tem a bola, então tens que tentar 
controlar o melhor possível o jogador; se tu tens a bola, o 
Spectrum põe-te em contacto com o jogador melhor colocado 
para interceptar. 

Se a equipa oposta atira para golear, tens que controlar o teu 
guarda-redes. Podes fazê-lo saltar ou atirar-se para o lado 
esquerdo ou direito. 

Todas as jogadas, como por exemplo, cantos, lançamentos, 
etc..., são feitas automaticamente pelos jogadores que se co- 
locam nas suas posições. Se o canto ou lançamento pertence 
à tua equipa, então tens 9 opções para a direcção, força do 
lançamento, pontapé, etc.... 

Podes detestar futebol, mas vais adorar este jogo e estamos 
certos que ele será um «HIT». 


( 
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THE WAR OF THE WORLDS 


Ninguém acreditaria que nos últimos anos do séc. XIX a vida 
humana estivesse sendo observada por outro mundo bem 
distante no espaço. Ninguém poderia acreditar que estivésse- 
mos sendo estudados, como um cientista que estuda outras 
criaturas por um microscópio. Poucos homens consideram a 
possibilidade de vida noutros planetas, no entanto, no espaço 
mentes superiores à nossa estudam o planeta Terra e estrutu- 
ram planos para nos atacar. Exactamente no dia 20 de Agosto 
começaram a ser enviados mísseis de Marte para o nosso 
planeta. Os cientistas consideravam que a situação não era 
alarmante, mas entretanto já se encontrava cá uma nave en- 
viada do espaço. Depois de examinada os cientistas verifica- 
ram que alguém pretendia escapar daquele cilindro de metal e 
ao tentar impedi-lo, foram bloqueados pela luz intensa que a 
nave irradiava. 

Longe daqui tudo parecia estar calmo e seguro.... 


Q — Acabar 7 — Subir 

5 — Esquerda 8 — Direita 

6 — Descer E — Comer (quando está fraco) 
| — Inventário D — Beber (quando está fraco) 


S — Estado de saúde. Deve comer e beber quando necessário 
G — Apanhar objectos (coloca-te ao seu lado e apanha-os). 


CRASH 


O objectivo deste jogo é apanhar todas as peças para um mo- 
tor de um automóvel, evitando as casas (que provocam aci- 
dentes mortais, e consequente final do jogo) e os mecânicos. 
Quando o carro anda apanhar as peças, o «Fuel» vai dimi- 
nuindo, por isso temos que conseguir «Fuel», bastando para 
isso passar pelos objectos que têm um «F». Se no decorrer do 
jogo atropelarmos muitos mecânicos, o jogo acaba. 

Para acelerar basta carregar numa tecla de direcção e 
mantê-la. 

O programa faz a redefinição de teclas e é compatível com 
Joystick. 

O jogo tem 9 níveis de dificuldade. 


MUSIC MAKER 


Trata-se de um dos melhores programas no género, que 
permite tirar do vulgar Spectrum notas músicais, com bastante 
qualidade permite a memorização de notas, repetição em 3 
velocidades, com 4 oitavas, grava a repetição da música e 
permite a carga dessa mesma gravação. 

Permite notas com vibrato e o teclado utilizado é idêntico (com 
a mesma distribuição) ao de um órgão electrónico. Permite, 
além do mais, um ritmo-base com a memorização das notas. 
O programa fornece um menú com as diversas opções e da 
indicação das teclas a utilizar. 


WHODUNIT 


Trata-se de um original jogo para o Spectrum. 

É um jogo de perícia, habilidade, inteligência e sem dúvida de 
raciocínio. O jogo consiste numa história de detectives: houve 
um assassínio numa determinada casa, a arma do crime não 
apareceu, não se sabe quem é o criminoso, há muitas suspei- 
tas. A nossa missão é de a capturar os suspeitos (tecla 
5,6,7,8) e de acordo com as nossas listas de suspeitos saber 


se ele é, ou não, o criminoso. O programa fornece as indica- 
ções sobre as teclas a utilizar. 

As teclas para apanhar os suspeitos são: 

6 — Subir 

7 — Descer 


5 — Esquerda 
8 — Direita 


GATE CRASHER 


É um dos melhores jogos de estratégia e raciocínio até agora 
feitos pela consagrada «Quicksilva». 
São 7 níveis diferentes, com diferentes estratégias também. 
O objectivo geral é fazer cair as bolas que possuímos (20 ao 
todo) através de um batimento de modo que elas caiam nas 
barracas que existem no final de cada écran. Só pode cair 1 
bola em cada buraco. Se cair mais do que uma em cada bura- 
co, elas desaparecem e perde-se pontuação. Acabando as 20 
bolas, acaba o jogo. Se se puser 1 bola em cada buraco (9 ao 
todo), o jogo muda para um nível diferente. 

O jogo permite a redefinição das teclas e contém instruções 
pormenorizadas. 


GHOSTBUSTERS 


Hey, alguém viu um fantasma? — «Hey, anyone seen a ghost?» 
De facto vimos. Muitos, muitos fantasmas andam, espalhados 
pela cidade e só tu poderás evitar este desastre de proporções 
bíblicas. 

Para salvares a cidade tens que fazer isto do topo do templo 
Zuul. 

isto só pode ser feito depois de teres apanhado muitos 
fantasmas. 

Tens que ganhar uma soma de dinheiro superior aquela com 
que começaste o jogo. 

Caminharás sempre ao lado do perigo. 

Mostra-lhes que os sabes enfrentar. 

Este jogo aproxima-se brilhantemente do argumento do filme, 
a música do programa é simplesmente espantosa. A juntar a 
isto, alguns dos gráficos mais criativos, coloridos e mais bem 
conseguidos desde sempre. 


PROGRAMAS DE CÓPIA 
LERM TAPE COPIER 6.0 
Lerm Software (600$00) 


— É constituído por 2 programas não muito longos e gravados 
em velocidade normal. 


M. MODE VER 2 


— Este programa cópia um bloco de cada vez e que poderão 
ir até aproximadamente 50 K. Tem ainda a particularidade 
de fazer cópia dos programas gravados com maior veloci- 
dade (baud rate). 


TRANS EXPRESS 
Romantic Robot (500$00) 


Para alérfh da copia normal de gravador para gravador, este 
programa é composto por mais três subprogramas de aplica- 
ção no Microdrive: 


De microdrive — microdrive 
gravador — microdrive 
microdrive — gravador 
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CLUBE JZo 


INSCRIÇÃO COMO ASSOCIADO 


O CLUBE Zso está aberto a todos os utilizadores de microcomputadores. 
A intenção de associar os entusiastas das micro-máquinas, é exclusivamente a de permitir: 


1 — PUBLICAÇÃO DE UM JORNAL MENSAL, onde sejam publicados programas de uso geral ou específico 
como no caso da educação. 


2 — PROMOVER TROCAS DE PROGRAMAS, e trocas de experiências; tanto no caso do Software (programa- 
ção), como no caso do Hardware (electrónica). 


3 — PROMOVER DESCONTOS NA AQUISIÇÃO DE PROGRAMAS. 


— 4— LANÇAR CURSOS DE PROGRAMAÇÃO EM BASIC — PASCAL OU OUTRAS LINGUAGENS E DIVULGAR 
O USO DE LINGUAGEM MÁQUINA. 
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ASSINATURA ANUAL — Esc. 1 500800 C] 


ASSINATURA SEMESTRAL — Esc. 750800 C] 


CHEQUE OU VALE DO CORREIO 
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